home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 1 / LSD Compendium Deluxe 1.iso / a / programming / assembly / h2sacsou.lha / TitlePic / Ant.S next >
Encoding:
Text File  |  1993-02-26  |  26.0 KB  |  1,025 lines
  1. ùúùúÿËGgÿËGgÿËGgÿËGgÿËGgÿËGgÿËGgÿËGgÿËGgRaster=0
  2.  
  3. Track=1        ;0=ASM-One version
  4.         ;1=Track version
  5.  
  6. MyDmacon=%01111101111
  7. ;      abcdefghhhh
  8. ; a = Blitter nasty
  9. ; b = Enable DMA activity (always set this!)
  10. ; c = Bitplane enable
  11. ; d = Copper enable
  12. ; e = Blitter enable
  13. ; f = Sprite enable
  14. ; g = Disk enable
  15. ; h = Audio channels enable
  16.  
  17. MyIntena=%100000000100000
  18. ;      abcdeeeefghijkl
  19. ; a = Enable interrupts
  20. ; b = Lev. 6 External interrupt
  21. ; c = Lev. 5 Disk sync found
  22. ; d = Lev. 5 Serial port receive buffer full
  23. ; e = Lev. 4 Audio ch. 3-0 block finished
  24. ; f = Lev. 3 Blitter finished
  25. ; g = Lev. 3 Vertical blank
  26. ; h = Lev. 3 Copper
  27. ; i = Lev. 2 I/O Ports and timers
  28. ; j = Lev. 1 Software
  29. ; k = Lev. 1 Disk block finished
  30. ; l = Lev. 1 Serial port transmit buffer empty
  31.  
  32.         SECTION    Kode,code_c
  33.  
  34.  
  35.         JumpPtr    Begin
  36.  
  37. *******************************************************************************
  38. **Macros
  39. *******************************************************************************
  40. WaitBlt:    macro
  41. .vent\@:    btst    #14,$dff002
  42.         bne    .vent\@
  43.         endm
  44.  
  45. *******************************************************************************
  46. **Initialisering
  47. *******************************************************************************
  48. Begin:
  49.         IF    Track=0
  50.         move.w    Intenar+Base,OldIntena
  51.         move.w    Dmacon+Base,OldDmacon
  52.         move.w    #$7fff,Intena+Base
  53.         move.w    #$7fff,Dmacon+Base
  54.         move.w    #$7fff,Intreq+Base
  55.  
  56.         move.l    (Lev3Base).w,OldIrq3
  57.         ELSE
  58.         move.l    #Lev3Irq,(Lev1Base).w
  59.         rts
  60.         ENDC
  61.  
  62.  
  63.         lea    Planer+2,a0
  64.         move.l    #(Pic+32+0*40),d0
  65.         moveq    #4-1,d1
  66. .loop        move.w    d0,4(a0)
  67.         swap    d0
  68.         move.w    d0,(a0)
  69.         swap    d0
  70.         add.l    #256*40,d0
  71.         addq.w    #8,a0
  72.         dbra    d1,.loop
  73.  
  74.         move.l    #Screen,d0
  75.         move.w    d0,4(a0)
  76.         swap    d0
  77.         move.w    d0,(a0)
  78.  
  79.         bsr    TypeScreen|.ting
  80.  
  81.         IF    Track=0
  82.         move.l    #Lev3Irq,(Lev3Base).w
  83.         waitblt
  84.  
  85.         move.w    #MyDmacon+$8000,Dmacon+Base
  86.         move.w    #MyIntena+$8000,Intena+Base
  87.  
  88. Wait:
  89.         move.w    IWantOut(pc),d0
  90.         beq.b    wait
  91.  
  92. *******************************************************************************
  93. **Exit to AmigaDOS
  94. *******************************************************************************
  95. ExitToDos:
  96.         move.w    #$7fff,Intena+Base
  97.         move.w    #$7fff,Dmacon+Base
  98.         ENDC
  99.         rts
  100.  
  101. VBlank:        dc.w    0
  102.         IF    Track=0
  103. OldIntena:    dc.w    0
  104. OldDmacon:    dc.w    0
  105. OldIrq3:    dc.l    0
  106. IWantOut:    dc.w    0
  107.         ELSE
  108. IWantOut:    EQU    $80
  109.         ENDC
  110.  
  111. *******************************************************************************
  112. **Level 3 interrupt
  113. *******************************************************************************
  114. Lev3Irq:
  115.         movem.l    d0-a6,-(sp)
  116.         move.l    #Copper,Cop2lch+Base
  117.         move.w    d0,Copjmp2+Base
  118.         move.w    #1,VBlank
  119. *******************************************************************************
  120.         bsr    Faders
  121.         cmp.w    #3,Story
  122.         bne.b    .NoLeft
  123. *******************************************************************************
  124.         move.w    #-1,IWantOut
  125. .NoLeft:    IF    Track=0
  126.         btst    #6,$bfe001
  127.         bne.b    .mus
  128.         move.w    #-1,IWantOut
  129. .mus
  130.         ENDC
  131.         if    Raster=1
  132.         move.w    #$f00,Color00+Base
  133.         endif
  134.         waitblt
  135.         if    Raster=1
  136.         move.w    #$00f,Color00+Base
  137.         endif
  138.         movem.l    (sp)+,d0-a6
  139.         IFEQ    Track-0
  140.         move.w    #$0020,Intreq+Base
  141.         ELSE
  142.         move.w    #$0004,Intreq+Base
  143.         ENDC
  144.         rte
  145.  
  146.  
  147. Faders:        move.w    Story(pc),d0
  148.         beq    FadeUp
  149.         subq.w    #1,d0
  150.         beq    TypeScreen
  151.         rts
  152.  
  153.  
  154.  
  155.  
  156.  
  157.  
  158. *******************************************************************************
  159. **
  160. **  Type screen
  161. **
  162. *******************************************************************************
  163. TypeScreen:
  164. .wait    btst    #2,$dff016
  165.     bne.b    .heltud
  166.  
  167.     lea    Base,a6
  168.     WaitBlt
  169.     move.l    #Screen,Bltdpth(a6)
  170.     move.l    #$01000000,Bltcon0(a6)
  171.     move.w    #0,Bltdmod(a6)
  172.     move.w    #256<<6!20,Bltsize(a6)
  173.     WaitBlt
  174. .ting    lea    Screen+2*40,a6
  175.     lea    PlaneFont,a0
  176.     move.l    TextPtr(pc),a1
  177. .next    tst.b    (a1)
  178.     beq.b    .out
  179.     bsr.b    WriteLine
  180.     bra.b    .next
  181. .out    addq.w    #1,a1
  182.     tst.b    (a1)
  183.     bne.b    .norm
  184.     lea    Text(pc),a1
  185. .norm    move.l    a1,TextPtr
  186.  
  187. .wait2    btst    #2,$dff016
  188.     beq.b    .wait2
  189. .heltud
  190.     rts
  191.  
  192. WriteLine:    moveq    #0,d0
  193.     move.b    (a1)+,d0
  194.     cmp.b    #10,d0
  195.     beq.b    .CRLF
  196.     cmp.b    #1,d0
  197.     bne.b    .notvenstre
  198.     moveq    #0,d1    ;X-Pos
  199.     bra.b    .printit
  200. .notvenstre    bsr.w    FindPixelSize
  201.     move.w    #320,d1
  202.     sub.w    d3,d1
  203.     cmp.b    #2,d0
  204.     bne.b    .printit
  205.     lsr.w    #1,d1
  206. .printit    moveq    #0,d0
  207.     move.b    (a1)+,d0
  208.     cmp.b    #10,d0
  209.     beq.b    .CRLF
  210.     bsr.b    PrintChar
  211.     add.w    d2,d1
  212.     bra.b    .printit
  213. .CRLF    lea    20*40(a6),a6
  214.     rts
  215.  
  216.  
  217. ** in:  d0=asciichar
  218. **      d1=pos
  219. **      a0=font
  220. **      a6=screen
  221. ** out: d2=charsize
  222. ** trashes:
  223. PrintChar:    bra.b    .jump
  224. .wloop    bsr.b    .copybyte
  225.     addq.w    #1,a2
  226.     bsr.b    .copybyte
  227.     lea    35(a2),a2
  228.     lea    38(a3),a3
  229.     dbra    d4,.wloop
  230.     rts
  231. .copybyte    moveq    #0,d5
  232.     move.b    (a2),d5
  233.     ror.w    d3,d5
  234.     or.b    d5,(a3)+
  235.     lsr.w    #8,d5
  236.     or.b    d5,(a3)
  237.     rts
  238. .jump    sub.b    #32,d0
  239.     add.w    d0,d0
  240.     moveq    #0,d2
  241.     moveq    #0,d3
  242.     move.b    FontConverter(PC,d0.w),d3
  243.     move.b    FontConverter+1(PC,d0.w),d2
  244.     cmp.b    #35,d3
  245.     shi    d5
  246.     divu    #36,d3
  247.     move.w    d3,d4
  248.     mulu    #36*17,d4
  249.     swap    d3
  250.     add.w    d3,d4
  251.     lea    (a0,d4.w),a2    ;font
  252.     move.w    d1,d3
  253.     move.w    d3,d4
  254.     lsr.w    #3,d4
  255.     lea    (a6,d4.w),a3    ;screen
  256.     tst.b    d5
  257.     beq.b    .small
  258.     lea    -2*40(a3),a3
  259. .small    and.w    #7,d3    ;scrollvalue
  260.     moveq    #17-1,d4
  261.     cmp.b    #8,d2
  262.     bhi.b    .wloop
  263. .bloop    bsr.b    .copybyte
  264.     lea    36(a2),a2
  265.     lea    39(a3),a3
  266.     dbra    d4,.bloop
  267.     rts
  268.  
  269. ** in:  a1=text
  270. ** out: d3=pixelsize
  271. ** trashes: d2/d4/a2
  272. FindPixelSize:    move.l    a1,a2
  273.     moveq    #0,d3
  274. .next    moveq    #0,d2
  275.     move.b    (a2)+,d2
  276.     cmp.b    #10,d2
  277.     beq.b    .gotit
  278.     sub.b    #32,d2
  279.     add.w    d2,d2
  280.     moveq    #0,d4
  281.     move.b    FontConverter+1(PC,d2.w),d4
  282.     add.w    d4,d3
  283.     bra.b    .next
  284. .gotit    rts
  285.  
  286. FontConverter:    dc.b    82,6,86,3,79,8,82,6     ; SPC - '#'
  287.     dc.b    82,6,82,6,75,8,80,4     ; '$' - '''
  288.     dc.b    72,6,73,6,96,10,82,6     ; '(' - '+'
  289.     dc.b    77,4,74,5,76,3,83,11     ; ',' - '/'
  290.     dc.b    51,8,87,7,88,8,89,8     ; '0' - '3'
  291.     dc.b    90,8,91,8,92,8,93,8     ; '4' - '7'
  292.     dc.b    94,8,95,8,78,3,82,6     ; '8' - ';'
  293.     dc.b    82,6,82,6,82,6,85,8     ; '<' - '?'
  294.     dc.b    82,6,36,8,37,8,38,8     ; '@' - 'C'
  295.     dc.b    39,8,40,8,41,8,42,8     ; 'D' - 'G'
  296.     dc.b    43,8,44,3,45,8,46,8     ; 'H' - 'K'
  297.     dc.b    47,4,48,12,50,8,51,8 ; 'L' - 'O'
  298.     dc.b    52,8,53,8,54,8,55,8     ; 'P' - 'S'
  299.     dc.b    56,8,57,8,58,8,59,12 ; 'T' - 'W'
  300.     dc.b    61,8,62,8,63,8,72,6     ; 'X' - '['
  301.     dc.b    82,6,73,6,82,6,82,6     ; '\' - '_'
  302.     dc.b    81,8,00,8,01,8,02,8     ; '`' - 'c'
  303.     dc.b    03,8,04,8,05,8,06,8     ; 'd' - 'g'
  304.     dc.b    07,8,08,3,09,8,10,8     ; 'h' - 'k'
  305.     dc.b    11,4,12,12,14,8,15,8 ; 'l' - 'o'
  306.     dc.b    16,8,17,8,18,8,19,8     ; 'p' - 's'
  307.     dc.b    20,8,21,8,22,8,23,12 ; 't' - 'w'
  308.     dc.b    25,8,26,8,27,8,72,6     ; 'x' - '{'
  309.     dc.b    82,6,82,6,82,6,82,6     ; '|' - DEL
  310.  
  311.     blk.w    32,(82<<8)!6
  312.  
  313.     dc.b    82,6,82,6,82,6,82,6     ; SPC - '£'
  314.     dc.b    82,6,82,6,82,6,82,6     ; '¤' - '§'
  315.     dc.b    82,6,82,6,82,6,82,6     ; '¨' - '«'
  316.     dc.b    82,6,82,6,82,6,82,6     ; '¬' - '¯'
  317.     dc.b    82,6,82,6,82,6,82,6     ; '°' - '³'
  318.     dc.b    82,6,82,6,82,6,82,6     ; '´' - '·'
  319.     dc.b    82,6,82,6,82,6,82,6     ; '¸' - '»'
  320.     dc.b    82,6,82,6,82,6,82,6     ; '¼' - '¿'
  321.     dc.b    82,6,82,6,82,6,82,6     ; 'À' - 'Ã'
  322.     dc.b    71,8,68,8,64,10,82,6 ; 'Ä' - 'Ç'
  323.     dc.b    82,6,82,6,82,6,82,6     ; 'È' - 'Ë'
  324.     dc.b    82,6,82,6,82,6,82,6     ; 'Ì' - 'Ï'
  325.     dc.b    82,6,82,6,82,6,82,6     ; 'Ð' - 'Ó'
  326.     dc.b    82,6,82,6,69,8,82,6     ; 'Ô' - '×'
  327.     dc.b    66,10,82,6,82,6,82,6 ; 'Ø' - 'Û'
  328.     dc.b    70,8,82,6,82,8,82,6     ; 'Ü' - 'ß'
  329.     dc.b    82,6,82,6,82,6,82,6     ; 'à' - 'ã'
  330.     dc.b    35,8,32,8,28,11,82,6 ; 'ä' - 'ç'
  331.     dc.b    82,6,82,6,82,6,82,6     ; 'è' - 'ë'
  332.     dc.b    82,6,82,6,82,6,82,6     ; 'ì' - 'ï'
  333.     dc.b    82,6,82,6,82,6,82,6     ; 'ð' - 'ó'
  334.     dc.b    82,6,82,6,33,8,82,6     ; 'ô' - '÷'
  335.     dc.b    30,10,82,6,82,6,82,6 ; 'ø' - 'û'
  336.     dc.b    34,8,82,6,82,8,82,6     ; 'ü' - 'ÿ'
  337.  
  338.  
  339. TextPtr:    dc.l    Text
  340. Text:    dc.b    2,'Welcome to this "hidden" part and',10
  341.     dc.b    10
  342.     dc.b    2,'FUCK YOU!!!',10
  343.     dc.b    10
  344.     dc.b    2,'...for watching this demo',10
  345.     dc.b    10
  346.     dc.b    2,'Instructions:',10
  347.     dc.b    2,'Use RMB to change page!!!!',10
  348.     dc.b    0
  349.  
  350.     dc.b    2,'Solnova sez:',10
  351.     dc.b    2,'"Enjoy this picture because we don''t"',10
  352.     dc.b    0
  353.  
  354.     dc.b    1,` After almost a year the promised demo`,10
  355.     dc.b    1,`from the creators of "In the Kitchen"`,10
  356.     dc.b    1,`showed up.`,10
  357.     dc.b    10
  358.     dc.b    1,` "How to Skin a Cat" was planned in`,10
  359.     dc.b    1,`Anarchy and miraculously brought to`,10
  360.     dc.b    1,`life, during a period of 2 months, in`,10
  361.     dc.b    1,`Melon.  The demo has had some sex change`,10
  362.     dc.b    1,`operations and changed character from a`,10
  363.     dc.b    1,`quite anarchistic style to a more`,10
  364.     dc.b    1,`acceptable (and perhaps sophisticated?)`,10
  365.     dc.b    1,`composition, but still with the magic`,10,0
  366.  
  367.     dc.b    1,`touch that seems to be the typical side`,10
  368.     dc.b    1,`effect of being ex-Rednex members.`,10
  369.     dc.b    10
  370.     dc.b    1,` This product was also decided by the`,10
  371.     dc.b    1,`developers to be the last demo for a`,10
  372.     dc.b    1,`long time and therefore they are`,10
  373.     dc.b    1,`retiring.  They have decided to leave`,10
  374.     dc.b    1,`Melon and so they will, this is their`,10
  375.     dc.b    1,`way of saying goodbye.`,10,0
  376.  
  377.     dc.b    2,`So what is all this fuzz about..??`,10
  378.     dc.b    10
  379.     dc.b    2,` Well, aparently you posses a great deal`,10
  380.     dc.b    2,`of patience since you've come this`,10
  381.     dc.b    2,`far....  ...and so much for the patience`,10
  382.     dc.b    2,`part.!?`,10
  383.     dc.b    10
  384.     dc.b    2,` I'm Solnova, and I did the Gfx in this`,10
  385.     dc.b    2,`demo by Slammer...  ('cept for the fab`,10
  386.     dc.b    2,`title pic by Mack, that is...) ...and so`,10
  387.     dc.b    2,`much for the bragging part.?!`,10,0
  388.  
  389.     dc.b    2,` As usual there are some words to be`,10
  390.     dc.b    2,`said, so why not start right away and`,10
  391.     dc.b    2,`sprinkle holy water on the following`,10
  392.     dc.b    2,`persons:`,10
  393.     dc.b    10
  394.     dc.b    2,` Marie, My girlfriend (*)`,10
  395.     dc.b    10
  396.     dc.b    2,` Slammer, My obedient coder..  (?)`,10
  397.     dc.b    10
  398.     dc.b    2,` Nuke'&'Dan/Lemon., The madmen from the`,10
  399.     dc.b    2,`United Kingdom`,10,0
  400.  
  401.     dc.b    2,` HitHansen/FB, Yet another skinhead from`,10
  402.     dc.b    2,`Utd Jylland`,10
  403.     dc.b    10
  404.     dc.b    2,` Corny/DCS, The ever happy (cap wearing)`,10
  405.     dc.b    2,`viking!`,10
  406.     dc.b    10
  407.     dc.b    2,` Andre'/Crln, Probably the most insane`,10
  408.     dc.b    2,`guy around!`,10
  409.     dc.b    10
  410.     dc.b    2,` Seen/Melon., The fatherly mega leader.`,10,0
  411.  
  412.     dc.b    2,` ICronite/CC, Low frequent noise on`,10
  413.     dc.b    2,`legs!`,10
  414.     dc.b    10
  415.     dc.b    2,` Milkshake/CC, An almost retired`,10
  416.     dc.b    2,`veteran.`,10
  417.     dc.b    10
  418.     dc.b    2,`Bannasoft/Melon., a 24h-a-day * hunting`,10
  419.     dc.b    2,`machine.`,10
  420.     dc.b    10
  421.     dc.b    2,`Heatseeker/Impulse, A Norwegian friend.`,10,0
  422.  
  423.     dc.b    2,`Toastmaster/Movement, the 2nd most`,10
  424.     dc.b    2,`insane guy!`,10
  425.     dc.b    10
  426.     dc.b    2,`Plus the attendants at the Fishing Trip`,10
  427.     dc.b    10
  428.     dc.b    2,`Well..`,10
  429.     dc.b    2,`That's about it, sorry for the forgotten`,10
  430.     dc.b    2,`ones.`,10,0
  431.  
  432.     dc.b    2,` Oh..  I'm glad that it's all over by`,10
  433.     dc.b    2,`now...  This demo has really been`,10
  434.     dc.b    2,`exhausting (!), especially the 3 last`,10
  435.     dc.b    2,`days before the party.  Slammer came`,10
  436.     dc.b    2,`Wednesday the 26th of May, so we have`,10
  437.     dc.b    2,`worked on the demo almost constantly for`,10
  438.     dc.b    2,`3 days..  The music arrived on Thursday,`,10
  439.     dc.b    2,`just in time (Thanks mate!  By the way I`,10
  440.     dc.b    2,`need your new address so I can mail your`,10
  441.     dc.b    2,`fish!) The childish "cat" drawing is a`,10
  442.     dc.b    2,`real child's work, it was done by my 7`,10
  443.     dc.b    2,`year old nephew, and then scanned and`,10,0
  444.  
  445.     dc.b    2,`finished in Dpaint by me.  The mean`,10
  446.     dc.b    2,`looking ant in the background was drawn`,10
  447.     dc.b    2,`a 100 percent by me in Dpaint, but it`,10
  448.     dc.b    2,`was taken from "Dragon Magazine" issue`,10
  449.     dc.b    2,`178 and then modified a bit (fancy`,10
  450.     dc.b    2,`stuff..!) The 1 plane faces in the demo`,10
  451.     dc.b    2,`were taken from a Danish cocoa milk`,10
  452.     dc.b    2,`brand named "Matilde", watch out for`,10
  453.     dc.b    2,`her, she can be a real bitch!  The title`,10
  454.     dc.b    2,`picture by me, was taken from a Danish`,10
  455.     dc.b    2,`comic book named "Valhalla", not scanned`,10
  456.     dc.b    2,`but drawn in Dpaint too...`,10,0
  457.  
  458.     dc.b    10
  459.     dc.b    10
  460.     dc.b    10
  461.     dc.b    2,` I wonder if I'm the only picture`,10
  462.     dc.b    2,`ripping guy around, nah..  I'm probably`,10
  463.     dc.b    2,`just the most honest one...`,10
  464.     dc.b    10
  465.     dc.b    10
  466.     dc.b    2,`      ...I'm off`,10
  467.     dc.b    10
  468.     dc.b    10
  469.     dc.b    2,`...and Slammer takes over...`,10,0
  470.  
  471.  
  472.     dc.b    2,'Goddam....  Oh my...  I''m drunk and',10
  473.     dc.b    2,'nobody knows what this scroller''ll',10
  474.     dc.b    2,'contain...  But it''s guaranteed to be',10
  475.     dc.b    2,'strange :) Hohum...  just finished reading',10
  476.     dc.b    2,'Neuromancer (english version (uhauha))...',10
  477.     dc.b    2,'Focken great!!!!  Go down and buy it',10
  478.     dc.b    2,'NOW!!!  So, why do I write a scroller?',10
  479.     dc.b    2,'Well why not? Heck, scrollers are a',10
  480.     dc.b    2,'coders way of masscommunicating to a big',10
  481.     dc.b    2,'audience... Non-coders write articles',10
  482.     dc.b    2,'to RAW instead. hmmmm...  increasingly',10
  483.     dc.b    2,'strange mood here...  right now my',10,0
  484.  
  485.     dc.b    2,'wonderful A500 is playing the FishTrip',10
  486.     dc.b    2,'tune (sorry, don''t know the real name,',10
  487.     dc.b    2,'by Andre, the MASTER!!!).  I''m typing',10
  488.     dc.b    2,'on my 1200 (nice computer, get one)..',10
  489.     dc.b    2,'Just watched "Freddy is back"-demo from',10
  490.     dc.b    2,'Paradox and it rules big time!!!',10
  491.     dc.b    2,'Incredible how he made a good demo out',10
  492.     dc.b    2,'of one routine...  I mean, take a look',10
  493.     dc.b    2,'at THIS crap...  Several routines but it',10
  494.     dc.b    2,'sucks!!! Whooops, when you''re drunk you',10
  495.     dc.b    2,'get friendly...  here goes:',10,0
  496.  
  497.     dc.b    1,`HitHansen/Funky Buddhas :  Take care, you`,10
  498.     dc.b    3,`hear?  And make the music... (Let it him`,10
  499.     dc.b    3,`'em...  NOT!!!!!)`,10
  500.     dc.b    1,`Jones/STB :  Well, eventually I WILL visit`,10
  501.     dc.b    3,`you...  Be ready!!!`,10
  502.     dc.b    1,`ICronite/Camel Corp.  :  Stop sunbathing`,10
  503.     dc.b    3,`and CODE!!!  I'm looking forward to`,10
  504.     dc.b    3,`the next demo from you...  (Kick that ass! :)`,10
  505.     dc.b    1,`Milkshake/Camel Corp.  :  I hear you sold`,10
  506.     dc.b    3,`your computer???? Why?????`,10
  507.     dc.b    1,`Solnova/Tegning :  Hum, well it had to`,10
  508.     dc.b    3,`happen...  Now what?  Let's make the demo`,10,0
  509.  
  510.     dc.b    3,`for XMas and hope there's a party it can`,10
  511.     dc.b    3,`win (heehee :)`,10
  512.     dc.b    1,`Quackbuster/STB :  Why haven't I received`,10
  513.     dc.b    3,`EC????  Send it you *CENSORED*`,10
  514.     dc.b    1,`Saviour/Complex :  Hope you're getting off`,10
  515.     dc.b    3,`with that 15 or 16 year old girl of`,10
  516.     dc.b    3,`yours...  What was her name again?  And for`,10
  517.     dc.b    3,`the record, next time you're gonna smoke`,10
  518.     dc.b    3,`TELL ME!!!!  ;)`,10
  519.     dc.b    1,`Gargoyle/Parasite :  Nice talk we had at`,10
  520.     dc.b    3,`the Gathering '93...  You're a cool dude`,10
  521.     dc.b    3,`(but you need some gay contacts...?)`,10,0
  522.  
  523.     dc.b    2,`Interrupt level 7 (NMI) here:  Uf, "»Ja«`,10
  524.     dc.b    2,`PILSNER" tastes like shit!!!  You can probably`,10
  525.     dc.b    2,`only get it in "Jaco" so don't buy your`,10
  526.     dc.b    2,`stuff there!!!!!`,10
  527.     dc.b    1,`I.B.M./Crystal :  Ugh, sorry about the`,10
  528.     dc.b    3,`intro....  It WILL be finished...`,10
  529.     dc.b    3,`eventually...  maybe....  if I get the time...`,10
  530.     dc.b    3,`and I feel like it....  c ya...`,10
  531.     dc.b    1,`Estrup/STB:  Oh no!  My account's expired....`,10
  532.     dc.b    3,`I don't live anymore...  is there a life`,10
  533.     dc.b    3,`outside the matrix?  And, more importantly,`,10
  534.     dc.b    3,`where is EC?`,10,0
  535.  
  536.     dc.b    1,`Bored of Himself :  Well, I'll get a new`,10
  537.     dc.b    3,`account somehow....  So what's your addy?`,10
  538.     dc.b    3,`An' make the game good you hear?`,10
  539.     dc.b    1,`Castor/Warpigs : Lene og Svend!!! I thought`,10
  540.     dc.b    3,`you were going to Frederiks birthday... catch`,10
  541.     dc.b    3,`you some other time... Hope you are doing some`,10
  542.     dc.b    3,`code.`,10
  543.     dc.b    1,`Dr.  What?/Direct :  Looooooong time no`,10
  544.     dc.b    3,`see/hear/talk...  Must have been one year or`,10
  545.     dc.b    3,`more!!!  What are you guys up to now?  Think`,10
  546.     dc.b    3,`I'll call you up some time...  If I have some`,10
  547.     dc.b    3,`spare cash...  The payphone's expensive :)`,10,0
  548.  
  549.     dc.b    1,`Asbjørn Præst/Kødsovs :  Fraktaler, fraktaler,`,10
  550.     dc.b    3,`fraktaler!!!  Make someting INTERESTING!!!`,10
  551.     dc.b    3,`heard ya got 13 in 3-års opgave (or was it`,10
  552.     dc.b    3,`11?)...  anyway ...  Congrats!!!  (Ehehe my`,10
  553.     dc.b    3,`3d-fractal will beat any of your shit btw...`,10
  554.     dc.b    3,`You just wait!!!!  ;)`,10
  555.     dc.b    1,`Stefan/Kødsovs :  Arg, why don't you guys get`,10
  556.     dc.b    3,`some HANDLES, so it is possible to make a`,10
  557.     dc.b    3,`decent greetslist???  Fuck, you are secret`,10
  558.     dc.b    3,`(du er hem'lig!)...  svensk lancier....`,10
  559.     dc.b    3,`and with HitHansen....  *shake head*`,10,0
  560.  
  561.     dc.b    1,`V.A.G.  :  1200 rules, no?  Hope you like`,10
  562.     dc.b    3,`this little thing.  Took me ages to code`,10
  563.     dc.b    3,`somehow...  Love being inactive....  ;) IRC`,10
  564.     dc.b    3,`rules...  (but don't FSP...  hope they didn't`,10
  565.     dc.b    3,`get you?) Thanks for helping me order a`,10
  566.     dc.b    3,`german 1200...  shit it never turned up here`,10
  567.     dc.b    3,`though...  ;)`,10
  568.     dc.b    1,`Jugi/Complex :  Jeeeeesus, you finns are`,10
  569.     dc.b    3,`weirrrd....Think I'll visit a finnish party`,10
  570.     dc.b    3,`once...  (just once, you have to :)...  you`,10
  571.     dc.b    3,`seem to spend more time on hotsex than on`,10
  572.     dc.b    3,`amiga....  or is that`,10,0
  573.  
  574.     dc.b    1,`Tai-Pan/Complex :  Yeah, my big hero!!!  I`,10
  575.     dc.b    3,`am just a humble slave willing to do as you`,10
  576.     dc.b    3,`command.  I am just grateful to talk to`,10
  577.     dc.b    3,`you...  *bow*..  I wonder if I'll ever get`,10
  578.     dc.b    3,`my blitter stuff working as I was bitching`,10
  579.     dc.b    3,`about...`,10
  580.     dc.b    1,`Tibo :  WHY don't you get an IRC-handle`,10
  581.     dc.b    3,`that's the same as your scene-handle???`,10
  582.     dc.b    3,`Take a look at Jugi, Saviour, Estrup and`,10
  583.     dc.b    3,`me!!! Shit I can't remember your handle or`,10
  584.     dc.b    3,`anything...  Been three months (at least!)`,10
  585.     dc.b    3,`without IRC...  Catch you there sometime!`,10,0
  586.  
  587.     dc.b    1,`ALFred (Doc Psi/Zenith):  Hooooaaaaarrrr!!!!`,10
  588.     dc.b    3,`WHERE is your ten-disk demo????  Nice`,10
  589.     dc.b    3,`meeting you at the party '92 (same to you,`,10
  590.     dc.b    3,`Tibo, btw!!!)...  And why did I get a`,10
  591.     dc.b    3,`Toblerone?  You guys had a bet or`,10
  592.     dc.b    3,`something about how old I was??? (Heck`,10
  593.     dc.b    3,`I look young but I'm 19..  same as Tibo`,10
  594.     dc.b    3,`but he looks like he's 30!!!! (no shit...`,10
  595.     dc.b    3,`get rid of that beard!!!!  you told me`,10
  596.     dc.b    3,`that you had a beard but I never`,10
  597.     dc.b    3,`expected THAT!!!))`,10,0
  598.  
  599.     dc.b    1,`Perplex/Spaceballs :  Oh no, why`,10
  600.     dc.b    3,`Spaceballs????  Pure Mental Coders were`,10
  601.     dc.b    3,`not you I guess...  or maybe they`,10
  602.     dc.b    3,`were...  too much "mental" for you?  (And`,10
  603.     dc.b    3,`don't SavBot that much :)`,10
  604.     dc.b    1,`Savage/I.C.E.  :  Whops, sorry long time`,10
  605.     dc.b    3,`no IRC...  Shit I'm looking forward to`,10
  606.     dc.b    3,`getting a new account so I can into some`,10
  607.     dc.b    3,`hot swapping again!!!! d:-P ...  And why`,10
  608.     dc.b    3,`do you HAVE to check the email-addy of`,10
  609.     dc.b    3,`the user?? Impossible to swap using a`,10
  610.     dc.b    3,`"friends" account...  grrrrr ;)`,10,0
  611.  
  612.     dc.b    1,`U4ia/Megawatts : IRC-maniac!!!! Each time`,10
  613.     dc.b    3,`I get on you're there or you get on while`,10
  614.     dc.b    3,`I'm there!!!! You can't stop now! You're`,10
  615.     dc.b    3,`addicted... just try...`,10
  616.     dc.b    1,`ABACUSMUD : Yes!!!! The *BEST* mud on`,10
  617.     dc.b    3,`InterNet!!!! If you want to 1) ruin your`,10
  618.     dc.b    3,`studying, 2) take a trip into hyperspace,`,10
  619.     dc.b    3,`3) meet extremely cool dudes and dudettes,`,10
  620.     dc.b    3,`then type "telnet abacusmud.hgs.se 4080" `,10
  621.     dc.b    3,`.... beware... it won't let you go when you`,10
  622.     dc.b    3,`are there.. you have been warned...`,10,0
  623.  
  624.  
  625.     dc.b    2,`Ok break here.... Just saw some oldtimers`,10
  626.     dc.b    2,`(demos)... And amongst them "In the`,10
  627.     dc.b    2,`Kitchen" and, more importantly, the`,10
  628.     dc.b    2,`review from Top Secret 11.... Hrmph...`,10
  629.     dc.b    2,`personally I think that it's the best`,10
  630.     dc.b    2,`demo I've done, TFG :) And, MUD, the`,10
  631.     dc.b    2,`titlepic is NOT from Mystix but from`,10
  632.     dc.b    2,`Facet! Anyway I can only agree with TFGs`,10
  633.     dc.b    2,`rating of the demos from the Hurricane`,10
  634.     dc.b    2,`party... But, MUD, ok the demo itself is too`,10
  635.     dc.b    2,`short, but there is not too few routines.`,10
  636.     dc.b    2,`Heck I could EASILY have made it twice as`,10
  637.     dc.b    2,`long by putting BORING texts between each`,10,0
  638.  
  639.     dc.b    2,`part.... but that's not me... Hmmm, in the`,10
  640.     dc.b    2,`S.O.S. demo there is 9 routines (11 if you`,10
  641.     dc.b    2,`count the milk-and-logo and the the writer)`,10
  642.     dc.b    2,`and in ITK there is 12 (not counting the`,10
  643.     dc.b    2,`writers and pictureshowers)... I don't`,10
  644.     dc.b    2,`understand... 12 routines is fewer than`,10
  645.     dc.b    2,`9??? Maybe it's just me...`,10
  646.     dc.b    10
  647.     dc.b    2,`Speaking of ITK, let's have some of the`,10
  648.     dc.b    2,`missing credits here.... The LARGE 8 colour`,10
  649.     dc.b    2,`font in the scroller-with-perspective-and-a-`,10
  650.     dc.b    2,`Matilde-underneath-part`,10,0
  651.  
  652.     dc.b    2,`by Airwalk of Kefrens!!! (Sorry I forgot`,10
  653.     dc.b    2,`that in the credits part... Can't tell you`,10
  654.     dc.b    2,`really how sorry I am..) And the music-`,10
  655.     dc.b    2,`replayer is by a dude whose name I cannot`,10
  656.     dc.b    2,`remember!!! (This might seem like a little`,10
  657.     dc.b    2,`thing but it is not! I think ITK is the only,`,10
  658.     dc.b    2,`first, and last DEMO to use this cool`,10
  659.     dc.b    2,`replayer. Written by a friend of 4Mat and`,10
  660.     dc.b    2,`karl_m... Greets to all three of you!)`,10,0
  661.  
  662.  
  663.  
  664.  
  665.  
  666.  
  667.  
  668.  
  669.     dc.b    0
  670.     EVEN
  671.  
  672.  
  673.  
  674.  
  675.  
  676.  
  677.  
  678.  
  679. *******************************************************************************
  680. **FadeUpDn
  681. *******************************************************************************
  682. Story:        dc.w    0
  683. FadeUp:
  684.         lea    Colors+2,a0
  685.         lea    Pic,a1
  686.         moveq    #16-1,d7
  687.         moveq    #0,d6
  688. .loop:        move.w    (a0),d0
  689.         move.w    (a1)+,d1
  690.         bsr    fader
  691.         move.w    d0,(a0)
  692.         cmp.w    d0,d1
  693.         bne    .notens
  694.         addq.w    #1,d6
  695. .notens:    addq.w    #4,a0
  696.         dbra    d7,.loop
  697.         cmp.w    #16,d6
  698.         bne    .ud
  699.         addq.w    #1,Story
  700. .ud:        rts
  701.  
  702. **d0=fade from
  703. **d1=fade to
  704. **out: d0=newcol
  705. fader:        move.w    d0,d2
  706.         move.w    d1,d3
  707.         lsr.w    #8,d2
  708.         lsr.w    #8,d3
  709.         cmp.w    d2,d3
  710.         beq    .nored
  711.         blt    .redsub
  712.         add.w    #$100,d0
  713.         bra    .nored
  714. .redsub:    sub.w    #$100,d0
  715. .nored:        move.w    d0,d2
  716.         move.w    d1,d3
  717.         lsr.w    #4,d2
  718.         lsr.w    #4,d3
  719.         and.w    #$f,d2
  720.         and.w    #$f,d3
  721.         cmp.w    d2,d3
  722.         beq    .nogreen
  723.         blt    .greensub
  724.         add.w    #$10,d0
  725.         bra    .nogreen
  726. .greensub:    sub.w    #$10,d0
  727. .nogreen:    move.w    d0,d2
  728.         move.w    d1,d3
  729.         and.w    #$f,d2
  730.         and.w    #$f,d3
  731.         cmp.w    d2,d3
  732.         beq    .noblue
  733.         blt    .bluesub
  734.         addq.w    #$1,d0
  735.         bra    .noblue
  736. .bluesub:    subq.w    #$1,d0
  737. .noblue:    rts
  738.  
  739. *******************************************************************************
  740. **Copperlist
  741. *******************************************************************************
  742. Copper:
  743.         dc.w    Spr0pth,$0000
  744.         dc.w    Spr0ptl,$0000
  745.         dc.w    Spr1pth,$0000
  746.         dc.w    Spr1ptl,$0000
  747.         dc.w    Spr2pth,$0000
  748.         dc.w    Spr2ptl,$0000
  749.         dc.w    Spr3pth,$0000
  750.         dc.w    Spr3ptl,$0000
  751.         dc.w    Spr4pth,$0000
  752.         dc.w    Spr4ptl,$0000
  753.         dc.w    Spr5pth,$0000
  754.         dc.w    Spr5ptl,$0000
  755.         dc.w    Spr6pth,$0000
  756.         dc.w    Spr6ptl,$0000
  757.         dc.w    Spr7pth,$0000
  758.         dc.w    Spr7ptl,$0000
  759.  
  760.         dc.w    Diwstrt,$2c81
  761.         dc.w    Diwstop,$2cc1
  762.         dc.w    Ddfstrt,$0038
  763.         dc.w    Ddfstop,$00d0
  764.  
  765.         dc.w    $106,$0c40
  766.  
  767. Colors:    dc.w    $0180,$000,$0182,$000,$0184,$000,$0186,$000
  768.     dc.w    $0188,$000,$018a,$000,$018c,$000,$018e,$000
  769.     dc.w    $0190,$000,$0192,$000,$0194,$000,$0196,$000
  770.     dc.w    $0198,$000,$019a,$000,$019c,$000,$019e,$000
  771.     dc.w    $01a0,$f88,$01a2,$f88,$01a4,$f88,$01a6,$f88
  772.     dc.w    $01a8,$f88,$01aa,$f88,$01ac,$f88,$01ae,$f88
  773.     dc.w    $01b0,$f88,$01b2,$f88,$01b4,$f88,$01b6,$f88
  774.     dc.w    $01b8,$f88,$01ba,$f88,$01bc,$f88,$01be,$f88
  775.  
  776.         dc.w    $1001,$fffe
  777. Planer:        dc.w    Bpl1pth,0    ;(Pic+32+0*40)>>16
  778.         dc.w    Bpl1ptl,0    ;(Pic+32+0*40)&$ffff
  779.         dc.w    Bpl2pth,0    ;(Pic+32+1*40)>>16
  780.         dc.w    Bpl2ptl,0    ;(Pic+32+1*40)&$ffff
  781.         dc.w    Bpl3pth,0    ;(Pic+32+2*40)>>16
  782.         dc.w    Bpl3ptl,0    ;(Pic+32+2*40)&$ffff
  783.         dc.w    Bpl4pth,0    ;(Pic+32+3*40)>>16
  784.         dc.w    Bpl4ptl,0    ;(Pic+32+3*40)&$ffff
  785.         dc.w    Bpl5pth,0    ;(Pic+32+3*40)>>16
  786.         dc.w    Bpl5ptl,0    ;(Pic+32+3*40)&$ffff
  787.  
  788.         dc.w    Bpl1mod,0
  789.         dc.w    Bpl2mod,0
  790.  
  791.         dc.w    Bplcon0,$5200
  792.         dc.w    Bplcon1,$0000
  793.         dc.w    Bplcon2,$0024
  794.  
  795.         dc.w    $ffff,$fffe
  796.  
  797. *******************************************************************************
  798. **Screens+Gfx
  799. *******************************************************************************
  800.     INCDIR    "Work:Code/Sources/HTSAC/EndPart/"
  801. Pic:    INCBIN    "PissedAnt.raw4*320*256+cmap"
  802.  
  803.     INCDIR    Work:Code/Sources/HTSAC/PlaneWriter/
  804. PlaneFont:    INCBIN    Planefont.raw
  805.  
  806. TheEnd:
  807.  
  808.         SECTION    Pis,bss_c
  809.  
  810. Screen:    ds.b    (256+22)*40
  811.  
  812.  
  813. *******************************************************************************
  814. **Hardware registers
  815. *******************************************************************************
  816. Bltddat=$000
  817. Dmaconr=$002
  818. Vposr=$004
  819. Vhposr=$006
  820. Dskdatr=$008
  821. Joy0dat=$00a
  822. Joy1dat=$00c
  823. Clxdat=$00e
  824. Adkconr=$010
  825. Pot0dat=$012
  826. Pot1dat=$014
  827. Potgor=$016
  828. Serdatr=$018
  829. Dskbytr=$01a
  830. Intenar=$01c
  831. Intreqr=$01e
  832. Dskpth=$020
  833. Dskptl=$022
  834. Dsklen=$024
  835. Dskdat=$026
  836. Refptr=$028
  837. Vposw=$02a
  838. Vhposw=$02c
  839. Copcon=$02e
  840. Serdat=$030
  841. Serper=$032
  842. Potgo=$034
  843. Joytest=$036
  844. Strequ=$038
  845. Strvbl=$03a
  846. Strhor=$03c
  847. Strlong=$03e
  848. Bltcon0=$040
  849. Bltcon1=$042
  850. Bltafwm=$044
  851. Bltalwm=$046
  852. Bltcpth=$048
  853. Bltcptl=$04a
  854. Bltbpth=$04c
  855. Bltbptl=$04e
  856. Bltapth=$050
  857. Bltaptl=$052
  858. Bltdpth=$054
  859. Bltdptl=$056
  860. Bltsize=$058
  861. Bltcmod=$060
  862. Bltbmod=$062
  863. Bltamod=$064
  864. Bltdmod=$066
  865. Bltcdat=$070
  866. Bltbdat=$072
  867. Bltadat=$074
  868. Dsksync=$07e
  869. Cop1lch=$080
  870. Cop1lcl=$082
  871. Cop2lch=$084
  872. Cop2lcl=$086
  873. Copjmp1=$088
  874. Copjmp2=$08a
  875. Copins=$08c
  876. Diwstrt=$08e
  877. Diwstop=$090
  878. Ddfstrt=$092
  879. Ddfstop=$094
  880. Dmacon=$096
  881. Clxcon=$98
  882. Intena=$09a
  883. Intreq=$09c
  884. Adkcon=$09e
  885. Aud0dat=$0aa
  886. Aud1dat=$0ba
  887. Aud2dat=$0ca
  888. Aud3dat=$0da
  889. Aud0lch=$0a0
  890. Aud1lch=$0b0
  891. Aud2lch=$0c0
  892. Aud3lch=$0d0
  893. Aud0len=$0a4
  894. Aud1len=$0b4
  895. Aud2len=$0c4
  896. Aud3len=$0d4
  897. Aud0per=$0a6
  898. Aud1per=$0b6
  899. Aud2per=$0c6
  900. Aud3per=$0d6
  901. Aud0vol=$0a8
  902. Aud1vol=$0b8
  903. Aud2vol=$0c8
  904. Aud3vol=$0d8
  905. Aud0lcl=$0a2
  906. Aud1lcl=$0b2
  907. Aud2lcl=$0c2
  908. Aud3lcl=$0d2
  909. Bpl1pth=$0e0
  910. Bpl1ptl=$0e2
  911. Bpl2pth=$0e4
  912. Bpl2ptl=$0e6
  913. Bpl3pth=$0e8
  914. Bpl3ptl=$0ea
  915. Bpl4pth=$0ec
  916. Bpl4ptl=$0ee
  917. Bpl5pth=$0f0
  918. Bpl5ptl=$0f2
  919. Bpl6pth=$0f4
  920. Bpl6ptl=$0f6
  921. Bplcon0=$100
  922. Bplcon1=$102
  923. Bplcon2=$104
  924. Bpl1mod=$108
  925. Bpl2mod=$10a
  926. Bpl1dat=$110
  927. Bpl2dat=$112
  928. Bpl3dat=$114
  929. Bpl4dat=$116
  930. Bpl5dat=$118
  931. Bpl6dat=$11a
  932. Spr0pth=$120
  933. Spr0ptl=$122
  934. Spr1pth=$124
  935. Spr1ptl=$126
  936. Spr2pth=$128
  937. Spr2ptl=$12a
  938. Spr3pth=$12c
  939. Spr3ptl=$12e
  940. Spr4pth=$130
  941. Spr4ptl=$132
  942. Spr5pth=$134
  943. Spr5ptl=$136
  944. Spr6pth=$138
  945. Spr6ptl=$13a
  946. Spr7pth=$13c
  947. Spr7ptl=$13e
  948. Spr0pos=$140
  949. Spr0ctl=$142
  950. Spr0data=$144
  951. Spr0datb=$146
  952. Spr1pos=$148
  953. Spr1ctl=$14a
  954. Spr1data=$14c
  955. Spr1datb=$14e
  956. Spr2pos=$150
  957. Spr2ctl=$152
  958. Spr2data=$154
  959. Spr2datb=$156
  960. Spr3pos=$158
  961. Spr3ctl=$15a
  962. Spr3data=$15c
  963. Spr3datb=$15e
  964. Spr4pos=$160
  965. Spr4ctl=$162
  966. Spr4data=$164
  967. Spr4datb=$166
  968. Spr5pos=$168
  969. Spr5ctl=$16a
  970. Spr5data=$16c
  971. Spr5datb=$16e
  972. Spr6pos=$170
  973. Spr6ctl=$172
  974. Spr6data=$174
  975. Spr6datb=$176
  976. Spr7pos=$178
  977. Spr7ctl=$17a
  978. Spr7data=$17c
  979. Spr7datb=$17e
  980. Color00=$180
  981. Color01=$182
  982. Color02=$184
  983. Color03=$186
  984. Color04=$188
  985. Color05=$18a
  986. Color06=$18c
  987. Color07=$18e
  988. Color08=$190
  989. Color09=$192
  990. Color10=$194
  991. Color11=$196
  992. Color12=$198
  993. Color13=$19a
  994. Color14=$19c
  995. Color15=$19e
  996. Color16=$1a0
  997. Color17=$1a2
  998. Color18=$1a4
  999. Color19=$1a6
  1000. Color20=$1a8
  1001. Color21=$1aa
  1002. Color22=$1ac
  1003. Color23=$1ae
  1004. Color24=$1b0
  1005. Color25=$1b2
  1006. Color26=$1b4
  1007. Color27=$1b6
  1008. Color28=$1b8
  1009. Color29=$1ba
  1010. Color30=$1bc
  1011. Color31=$1be
  1012. Base=$dff000
  1013.  
  1014. *******************************************************************************
  1015. **Interrupt addresses
  1016. *******************************************************************************
  1017. Lev1Base=$64
  1018. Lev2Base=$68
  1019. Lev3Base=$6c
  1020. Lev4Base=$70
  1021. Lev5Base=$74
  1022. Lev6Base=$78
  1023. Lev7Base=$7c
  1024.  
  1025.